home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / ti / pcscm3_3 / pkdisk2.arc / PGR.FSL < prev    next >
Encoding:
Text File  |  1988-06-07  |  4.7 KB  |  127 lines
  1. #!fast-load  (C) Copyright 1988 by Texas Instruments
  2. #!fast-load            All Rights Reserved.
  3. h0014 0076
  4. x0C#!UNASSIGNED
  5. x0ECLEAR-GRAPHICS
  6. x0BCLEAR-POINT
  7. x0ADRAW-POINT
  8. x0CDRAW-LINE-TO
  9. x0CIS-POINT-ON?
  10. x0CPOSITION-PEN
  11. x0ESET-PEN-COLOR!
  12. x0FSET-VIDEO-MODE!
  13. x0EGET-VIDEO-MODE
  14. x0BDRAW-BOX-TO
  15. x12DRAW-FILLED-BOX-TO
  16. x0CSET-PALETTE!
  17. x0BPOINT-COLOR
  18. x17SET-CLIPPING-RECTANGLE!
  19. x0FGRAPHICS-WINDOW
  20. x10GET-PEN-POSITION
  21. x0DGET-PEN-COLOR
  22. x17CURRENT-GRAPHICS-WINDOW
  23. x0ERESET-GRAPHICS
  24. t    
  25.   
  26. ;
  27. z
  28. h0004 001B
  29. x10PCS-MACHINE-TYPE
  30. llx05BLACKi0000llx04BLUEi0001llx03REDi0002llx07MAGENTAi0003llx05GREENi0004l
  31. lx04CYANi0005llx06YELLOWi0006llx05WHITEi0007n
  32. llx05BLACKi0000llx04CYANi0001llx07MAGENTAi0002llx05WHITEi0003n
  33. x11*GRAPHICS-COLORS*
  34. t^" ;
  35. z
  36. h0002 000A
  37. llx02TIli0009i000Clli0004li0008i0008lli000Eli0008i0008lli0010li0008i000El
  38. li0012li0008i0010n
  39. x11*CHARACTER-BOXES*
  40. t;
  41. z
  42. h0044 08B1
  43. x06SCREEN
  44. x10PCS-MACHINE-TYPE
  45. i02CF
  46. i013F
  47. i012B
  48. i00C7
  49. i0168
  50. i00A0
  51. i0095
  52. lx05CUR-Xlx05CUR-Ylx05CUR-Wlx09CUR-COLORlx05MAX-Xlx05MAX-Ylx05MID-Xlx05MID-Yl
  53. x05MIN-Xlx05MIN-Ylx08NUM-CLRSn
  54. x05CUR-X
  55. x05CUR-Y
  56. x05CUR-W
  57. x09CUR-COLOR
  58. x05MAX-X
  59. x05MAX-Y
  60. x05MID-X
  61. x05MID-Y
  62. x05MIN-X
  63. x05MIN-Y
  64. x08NUM-CLRS
  65. x0ECLEAR-GRAPHICS
  66. x0ERESET-GRAPHICS
  67. x0ADRAW-POINT
  68. x0BCLEAR-POINT
  69. x0CIS-POINT-ON?
  70. x0BPOINT-COLOR
  71. x0CPOSITION-PEN
  72. x10GET-PEN-POSITION
  73. x0CDRAW-LINE-TO
  74. x0ESET-PEN-COLOR!
  75. x0DGET-PEN-COLOR
  76. x0FSET-VIDEO-MODE!
  77. x0EGET-VIDEO-MODE
  78. x0BDRAW-BOX-TO
  79. x12DRAW-FILLED-BOX-TO
  80. x0CSET-PALETTE!
  81. x17SET-CLIPPING-RECTANGLE!
  82. x17CURRENT-GRAPHICS-WINDOW
  83. x0FGRAPHICS-WINDOW
  84. x07CONSOLE
  85. x0FWINDOW-GET-SIZE
  86. x13WINDOW-GET-POSITION
  87. x02TI
  88. i00FC
  89. x11*CHARACTER-BOXES*
  90. s002ACurrent video mode is not a graphics mode.
  91. x0FERROR-PROCEDURE
  92. x1B%ERROR-INVALID-OPERAND-LIST
  93. llx05BLACKi0000llx04CYANi0001llx07MAGENTAi0002llx05WHITEi0003n
  94. llx05BLACKi0000llx05GREENi0001llx03REDi0002llx06YELLOWi0003n
  95. x11*GRAPHICS-COLORS*
  96. x11PCS-STATUS-WINDOW
  97. x15WINDOW-SET-ATTRIBUTE!
  98. x0FTEXT-ATTRIBUTES
  99. li000Eli0010li0012n
  100. i0087
  101. i0167
  102. llx05BLACKi0000llx04CYANi0001llx07MAGENTAi0002llx05WHITEi0003n
  103. li000Eli0010li0012n
  104. i027F
  105. i0140
  106. llx05BLACKi0000llx04BLUEi0001llx05GREENi0002llx04CYANi0003llx03REDi0004ll
  107. x07MAGENTAi0005llx05BROWNi0006llx05WHITEi0007llx04GRAYi0008llx0ALIGHT-BLUE
  108. i0009llx0BLIGHT-GREENi000Allx0ALIGHT-CYANi000Bllx09LIGHT-REDi000Cllx0DLIGHT-MAGENTA
  109. i000Dllx06YELLOWi000Ellx0DINTENSE-WHITEi000Fn
  110. i015D
  111. i00AE
  112. i01DF
  113. i00EE
  114. i0400
  115. t ^" ^"  ^ "  $^ $"    c$(,0^,0",, ,▌    
  116.   
  117.  $(,04^04"0
  118. 0<0Ç0  0<0µ00<0ÿ00<0c00<0.00<0≈00<0┬00<0₧00<0|00<0<00<0ε00<0▀00 <0+0 0!<00!0"<0┴0"0#<0Ç0#0$<0µ0$0%<0x0%0&<0i0&0'<00'; d "( )4*4^"+ ,]"!4 -mA ê"% .!4 /4 A@S@A S A  @$S $$P$  $Q  @$ A(S$((P($$(Q$ (<@╫( $<@(P( ,W(,((P($,W(,( $(( (,R(,,0R,004R0448R48x04O,,0O((,, x,$O,,O0,(x0; ;PbcR b  c $  P $$c $$b $$R$(c$((b$((,╫ $(,; ç "  ç ê "  0$4 ,` " # ^ " !4 ^ "  è "  1  2 3  $╫  $;
  119.  P
  120. R  
  121. $ (
  122. ,╫  $(,;
  123.  P
  124. R  
  125. $ (
  126. ,╫  $(,; ╫ ; ╫  e ê # y e"# 456 p4  *7 h" 456 84    a " 4;
  127. ;ç"ò X 
  128. ; 3l "
  129. A ò X   Q  
  130.  ;
  131.     
  132. $ (
  133. ,╫ $(,;
  134. R R O; P 
  135.  R  ; P R $╫  $; P R $╫  $ö; P R $╫  $; P R
  136.  $╫  $;^"69
  137.  !4 e "Hc:3 Q  
  138.  5  ;h #ô<=>3 Q  
  139. !4 e "    c  2 e "  ?  @   e "  A  B  5 ;4 d"(!4 ⁿ╫ⁿ ⁿ 2 '4  CC╫  ╫ ;4 d"< ╫  ╫  2 '4  CC╫ ;
  140. z
  141.